home *** CD-ROM | disk | FTP | other *** search
/ Mac Magazin/MacEasy 32 / Mac Magazin and MacEasy Magazine CD - Issue 32.iso / Multimedia / MIDI / MidiChaos_15 Folder / MidiChaos_1.5 / Source / Tools / textrom < prev   
Text File  |  1990-11-15  |  512b  |  29 lines
  1.  
  2. : ($ROM)  ( index address -- $string )
  3.     ( -- index address )
  4.     swap 0
  5.     DO dup c@ 1+ + even-up
  6.     LOOP
  7. ;
  8.  
  9. : $ROM ( packed array of strings, unalterable )
  10.     CREATE ( <name> -- )
  11.     DOES> ( index -- $string )  ($rom)
  12. ;
  13.  
  14. : TEXTROM ( packed array of strings, unalterable )
  15.     CREATE ( <name> -- )
  16.     DOES> ( index -- address count )  ($rom) count
  17. ;
  18.  
  19. : ,"  ( <string>" -- , lay down at here, allot space )
  20.     ascii " lword
  21.     c@ 1+ allot align
  22. ;
  23.  
  24.  
  25. : UNCOUNT.TEXT  ( addr count -- addr-1 )
  26.     drop 1-
  27. ;
  28.  
  29.